Dead Lift

Bench Press

Squat

bp_plot<-bp %>% filter(Exercise=="Squat") %>% 
  ggplot(.,aes(x=Date,y=Average)) + geom_line() +geom_point(color="red") +
  geom_point(data = d[d$Exercise=="Squat",],aes(x=Date,y=Weight),color="blue",alpha=.1) + theme_classic()